home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSDOSSYS 2.xpl < prev    next >
Text File  |  2001-04-12  |  3KB  |  100 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="4"
  4. "UIPATH 1"="Startup/Shutdown\Startup\Windows 9x/ME\10) Boot Menu"
  5. "NAME"="Advanced Options"
  6. "VERSION"="1.38"
  7. "OSVERSION"="10101"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Enable "Previous version of MS-DOS" Startup Menu option"
  10. "TEXT 2"="Enable "Safe mode with network support" Startup Menu option"
  11. "TEXT 3"="Enable logging (BOOTLOG.TXT is created in the root folder)"
  12. "TEXT 4"="Load COMMAND.COM or DRVSPACE.BIN at top of conventional memory"
  13. '"TEXT 5"="Start "Safe Mode" upon next boot"
  14. "DESCRIPTION 1"="Change these options to control the way Windows 95/OSR2/98/ME boots up."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Updated by AXCEL216 [http://members.aol.com/axcel216/]."
  19. "COMMENT 2"="Thanks to David Goodenough (dpg@ix.netcom.com) for the fix!"
  20.  
  21. 'Declaration of some constants
  22. sF="C:\MSDOS.SYS"
  23. sO="Options"
  24.  
  25. 'Called when the Plugin is started
  26. Sub Plugin_Initialize
  27.   Call FileSetAttribute(sf,"H-")
  28.   Call FileSetAttribute(sf,"R-")
  29.   Call FileSetAttribute(sf,"S-")
  30.  
  31.   'Fix #1
  32.   'i=IniReadValue(sf,so,"MultiBoot")
  33.  
  34.   i=IniReadValue(sf,so,"BootMulti")
  35.   if i=1 then SetUIElement 1,true
  36.  
  37.   i=IniReadValue(sf,so,"Network")
  38.   if i=1 then SetUIElement 2,true
  39.  
  40.   i=IniReadValue(sf,so,"DisableLog") '//Undoc?!
  41.   if i=0 or IsEmpty(i) then SetUIElement 3,true
  42.  
  43.   i=IniReadValue(sf,so,"LoadTop")
  44.   if i=1 then SetUIElement 4,true
  45.  
  46.   'i=IniReadValue(sf,so,"BootSafe")
  47.   'if i=1 then SetUIElement 5,true
  48. End Sub
  49.  
  50. 'Called when the Plugin should validate the Data the user has entered
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54. 'Called when the Plugin should apply the changes
  55. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  56.  b=GetUIElement(1)
  57.  if b=true then
  58.   Call IniWriteValue(sf,so,"BootMulti",1)
  59.  else
  60.   Call IniWriteValue(sf,so,"BootMulti",0)
  61.  end if
  62.  
  63.  b=GetUIElement(2)
  64.  if b=true then
  65.   Call IniWriteValue(sf,so,"Network",1)
  66.  else
  67.   Call IniWriteValue(sf,so,"Network",0)
  68.  end if
  69.  
  70.  b=GetUIElement(3)
  71.  if b=true then
  72.   Call IniWriteValue(sf,so,"DisableLog",0)
  73.  else
  74.   Call IniWriteValue(sf,so,"DisableLog",1)
  75.  end if
  76.  
  77.  b=GetUIElement(4)
  78.  if b=true then
  79.   Call IniWriteValue(sf,so,"LoadTop",1)
  80.  else
  81.   Call IniWriteValue(sf,so,"LoadTop",0)
  82.  end if
  83.  
  84.  'b=GetUIElement(5)
  85.  'if b=true then
  86.  ' Call IniWriteValue(sf,so,"BootSafe",1)
  87.  'else
  88.  ' Call IniWriteValue(sf,so,"BootSafe",0)
  89.  'end if
  90.  
  91.  Call Restart()
  92. End Sub
  93.  
  94. 'Called when the Plugin is about to be removed from memory
  95. Sub Plugin_Terminate
  96.  Call FileSetAttribute(sf,"H+")
  97.  Call FileSetAttribute(sf,"R+")
  98.  Call FileSetAttribute(sf,"S+")
  99. End Sub
  100.